home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / rexx / MicroRexx203.lha / MicroRexx / Rexx / Windows.rexx < prev   
OS/2 REXX Batch file  |  1998-08-07  |  613b  |  41 lines
  1. /* Windows.rexx */
  2. options results
  3. address 'MicroRexx'
  4. 'OPENWIN' 10 10 300 100 'First'
  5. w = result
  6. 'BUTTON' w 0 30 30 30 30 "QUIT" 2
  7. 'STRING' w 1 100 50 80 16 "»" 1 5
  8. 'GADGETSON' w
  9. 'GADGETHIT' w
  10. 'OPENWIN' 400 130 80 80 'Second'
  11. z = result
  12. 'BUTTON' z 0 30 30 30 30 "?" 1
  13. 'GADGETSON' z
  14. 'GADGETHIT' z
  15. do forever
  16.   'GADGETHIT' w
  17.   g = result
  18.   say g
  19.   if g = 1 then do
  20.     'STRINGRESULT' w 1
  21.     say result
  22.   end
  23.   if g = 0 then do
  24.     signal 1
  25.   end
  26.   'GADGETHIT' z
  27.   h = result
  28.   if h = 0 then do
  29.     'ABOUT'
  30.   end
  31. end
  32. 1:
  33. 'GADGETSOFF' w
  34. 'KILLGADGETS' w
  35. 'CLOSEWIN' w
  36. 'GADGETSOFF' z
  37. 'KILLGADGETS' z
  38. 'CLOSEWIN' z
  39. exit
  40.  
  41.